home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / COEXPR.ICN < prev    next >
Text File  |  1990-03-28  |  2KB  |  65 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure dummy(u,v,x,y,z)
  4.    suspend u | v
  5.    return x
  6. end
  7.  
  8.  
  9. procedure f(x,y,z)
  10.    display()
  11. end
  12.  
  13. procedure main()
  14.    if not(&features == "co-expressions") then
  15.       stop("co-expressions not supported")
  16.    write(image(&main))
  17.    write(image(&source))
  18.    write(image(¤t))
  19.    e := create foo
  20.    write(image(foo))
  21.    f(&main,&source,e)
  22.    write(image(x := [array(),table(),write,input,1,"abc",'aa',&null,create 1]) | "failed")
  23.    write(image(x := sort(x)) | "failed")
  24.    write(image(every write(image(!x))) | "failed")
  25.    write(image(e := create 1 to 10) | "failed")
  26.    write(image(@e) | "failed")
  27.    write(image(@e) | "failed")
  28.    write(image(@e) | "failed")
  29.    write(image(e := ^e) | "failed")
  30.    write(image(@e) | "failed")
  31.    write(image(@e) | "failed")
  32.    write(image(@e) | "failed")
  33.    write(image(@e) | "failed")
  34.    write(image(@e) | "failed")
  35.    write(image(@e) | "failed")
  36.    write(image(@e) | "failed")
  37.    write(image(@e) | "failed")
  38.    write(image(@e) | "failed")
  39.    write(image(@e) | "failed")
  40.    write(image(@e) | "failed")
  41.    write(image(@e) | "failed")
  42.    write(image(@e) | "failed")
  43.    write(image(@e) | "failed")
  44.    write(image(*e) | "failed")
  45.    write(image(*e) | "failed")
  46.    write(image(image(e)) | "failed")
  47.    write(image(tab := create {write("entering tab"); 1 | 2 | 3}) | "failed")
  48.    write(image(trim := create {write("entering trim"); @tab | (main @:= tab)}) | "failed")
  49.    write(image(@trim) | "failed")
  50.    write(image(@trim) | "failed")
  51.    write(image(write(image(trim))) | "failed")
  52.    write(image(write(image(tab))) | "failed")
  53.    write(image(write(image(main))) | "failed")
  54.    &trace := -1
  55.    dummy{1,2,3,4}
  56.    dummy{}
  57.    dummy(image{1,2,3,4})
  58.    dummy(put{1,2,3,4})
  59.    dummy("*"{1,2,3,4})
  60.    dummy(image("|||"([],[])))
  61.    dummy("+"(1,2))
  62.    dummy("+"(1))
  63.    dummy("image"(image(image)))
  64. end
  65.